library(shiny)
library(shinyWidgets)
library(janitor)
library(tidyverse)
library(leaflet)
library(tsibble)
library(shinythemes) # Themes maybe?
library(ggthemes)
library(infer)
library(shinydashboard)
library(tsibbledata)
library(fable)
library(slider)
library(feasts)
library(tidyquant)
library(sf)
library(rgdal)
library(lubridate)
library(sf)
library(rgdal)
library(leaflet)
beds <- read_csv("beds_specialty.csv")
# read in shape file
hb_shapes <- st_read("SG_NHS_HealthBoards_2019/SG_NHS_HealthBoards_2019.shp")
beds_specialty_data %>%
clean_names() %>%
mutate(q = str_sub(quarter, -2),
quarter = yq(quarter),
date = quarter,
quarter = q) %>%
mutate(hb = if_else(hb %in% "S08000015", "Ayrshire & Arran",
if_else(hb %in% "S08000016", "Borders",
if_else(hb %in% "S08000017", "Dumfries & Galloway",
if_else(hb %in% "S08000019", "Forth Valley",
if_else(hb %in% "S08000020", "Grampian",
if_else(hb %in% "S08000022", "Highland",
if_else(hb %in% "S08000024", "Lothian",
if_else(hb %in% "S08000025", "Orkney",
if_else(hb %in% "S08000026", "Shetland",
if_else(hb %in% "S08000028", "Western Isles",
if_else(hb %in% "S08000029", "Fife",
if_else(hb %in% "S08000030", "Tayside",
if_else(hb %in% "S08000031", "Greater Glasgow & Clyde",
if_else(hb %in% "S08000032", "Lanarkshire",
if_else(hb %in% "S92000003", "Scotland", NA_character_)
))))))))))))))) %>%
filter(location_qf == "d") %>%
# additional cleaning - to be added in
filter(location != is.na(location)) %>%
select(date, quarter, hb, specialty_name, all_staffed_beds,
total_occupied_beds, average_available_staffed_beds,
average_occupied_beds, percentage_occupancy) %>%
rename(hb_name = hb)
Error in clean_names(.) : object 'beds_specialty_data' not found

made acute_only just to try and plot on map to see if it would work
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkoc2hpbnkpCmxpYnJhcnkoc2hpbnlXaWRnZXRzKQpsaWJyYXJ5KGphbml0b3IpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGxlYWZsZXQpCmxpYnJhcnkodHNpYmJsZSkKbGlicmFyeShzaGlueXRoZW1lcykgIyBUaGVtZXMgbWF5YmU/CmxpYnJhcnkoZ2d0aGVtZXMpCmxpYnJhcnkoaW5mZXIpCmxpYnJhcnkoc2hpbnlkYXNoYm9hcmQpCmxpYnJhcnkodHNpYmJsZWRhdGEpCmxpYnJhcnkoZmFibGUpCmxpYnJhcnkoc2xpZGVyKQpsaWJyYXJ5KGZlYXN0cykKbGlicmFyeSh0aWR5cXVhbnQpCmxpYnJhcnkoc2YpCmxpYnJhcnkocmdkYWwpCmxpYnJhcnkobHVicmlkYXRlKQpsaWJyYXJ5KHNmKQpsaWJyYXJ5KHJnZGFsKQpsaWJyYXJ5KGxlYWZsZXQpCmBgYAoKYGBge3J9CmJlZHMgPC0gcmVhZF9jc3YoImJlZHNfc3BlY2lhbHR5LmNzdiIpCgojIHJlYWQgaW4gc2hhcGUgZmlsZQpoYl9zaGFwZXMgPC0gc3RfcmVhZCgiU0dfTkhTX0hlYWx0aEJvYXJkc18yMDE5L1NHX05IU19IZWFsdGhCb2FyZHNfMjAxOS5zaHAiKQpgYGAKCmBgYHtyfQojIGNsZWFuaW5nIHNjcmlwdAoKYmVkc19zcGVjaWFsdHlfZGF0YSA8LSBiZWRzICU+JSAKICBjbGVhbl9uYW1lcygpICU+JSAKICBtdXRhdGUocSA9IHN0cl9zdWIocXVhcnRlciwgLTIpLAogICAgICAgICBxdWFydGVyID0geXEocXVhcnRlciksCiAgICAgICAgIGRhdGUgPSBxdWFydGVyLAogICAgICAgICBxdWFydGVyID0gcSkgJT4lCiAgbXV0YXRlKGhiID0gaWZfZWxzZShoYiAlaW4lICJTMDgwMDAwMTUiLCAiQXlyc2hpcmUgJiBBcnJhbiIsCiAgICAgICAgICAgICAgaWZfZWxzZShoYiAlaW4lICJTMDgwMDAwMTYiLCAiQm9yZGVycyIsCiAgICAgICAgICAgICAgaWZfZWxzZShoYiAlaW4lICJTMDgwMDAwMTciLCAiRHVtZnJpZXMgJiBHYWxsb3dheSIsCiAgICAgICAgICAgICAgaWZfZWxzZShoYiAlaW4lICJTMDgwMDAwMTkiLCAiRm9ydGggVmFsbGV5IiwKICAgICAgICAgICAgICBpZl9lbHNlKGhiICVpbiUgIlMwODAwMDAyMCIsICJHcmFtcGlhbiIsCiAgICAgICAgICAgICAgaWZfZWxzZShoYiAlaW4lICJTMDgwMDAwMjIiLCAiSGlnaGxhbmQiLAogICAgICAgICAgICAgIGlmX2Vsc2UoaGIgJWluJSAiUzA4MDAwMDI0IiwgIkxvdGhpYW4iLAogICAgICAgICAgICAgIGlmX2Vsc2UoaGIgJWluJSAiUzA4MDAwMDI1IiwgIk9ya25leSIsCiAgICAgICAgICAgICAgaWZfZWxzZShoYiAlaW4lICJTMDgwMDAwMjYiLCAiU2hldGxhbmQiLAogICAgICAgICAgICAgIGlmX2Vsc2UoaGIgJWluJSAiUzA4MDAwMDI4IiwgIldlc3Rlcm4gSXNsZXMiLAogICAgICAgICAgICAgIGlmX2Vsc2UoaGIgJWluJSAiUzA4MDAwMDI5IiwgIkZpZmUiLAogICAgICAgICAgICAgIGlmX2Vsc2UoaGIgJWluJSAiUzA4MDAwMDMwIiwgIlRheXNpZGUiLAogICAgICAgICAgICAgIGlmX2Vsc2UoaGIgJWluJSAiUzA4MDAwMDMxIiwgIkdyZWF0ZXIgR2xhc2dvdyAmIENseWRlIiwKICAgICAgICAgICAgICBpZl9lbHNlKGhiICVpbiUgIlMwODAwMDAzMiIsICJMYW5hcmtzaGlyZSIsCiAgICAgICAgICAgICAgaWZfZWxzZShoYiAlaW4lICJTOTIwMDAwMDMiLCAiU2NvdGxhbmQiLCBOQV9jaGFyYWN0ZXJfKQogICAgICAgICAgICAgICkpKSkpKSkpKSkpKSkpKSAlPiUgCiAgZmlsdGVyKGxvY2F0aW9uX3FmID09ICJkIikgJT4lCiAgIyBhZGRpdGlvbmFsIGNsZWFuaW5nIC0gdG8gYmUgYWRkZWQgaW4KICBmaWx0ZXIobG9jYXRpb24gIT0gaXMubmEobG9jYXRpb24pKSAlPiUgCiAgc2VsZWN0KGRhdGUsIHF1YXJ0ZXIsIGhiLCBzcGVjaWFsdHlfbmFtZSwgYWxsX3N0YWZmZWRfYmVkcywgCiAgICAgICAgIHRvdGFsX29jY3VwaWVkX2JlZHMsIGF2ZXJhZ2VfYXZhaWxhYmxlX3N0YWZmZWRfYmVkcywKICAgICAgICAgYXZlcmFnZV9vY2N1cGllZF9iZWRzLCBwZXJjZW50YWdlX29jY3VwYW5jeSkgJT4lCiAgcmVuYW1lKGhiX25hbWUgPSBoYikKICAKYGBgCgpgYGB7cn0KIyBwbG90IGZyb20gQ09WSUQgdGFiCgpiZWRzX3NwZWNpYWx0eV9kYXRhICU+JSAKICBmaWx0ZXIoc3BlY2lhbHR5X25hbWUgJWluJSBjKCJBbGwgQWN1dGUiLCAiQWxsIFNwZWNpYWx0aWVzIiksCiAgICAgICAgIGhiX25hbWUgIT0gIlNjb3RsYW5kIikgJT4lCiAgZ2dwbG90KGFlcyh4ID0gZGF0ZSwgeSA9IHBlcmNlbnRhZ2Vfb2NjdXBhbmN5LCBjb2wgPSBzcGVjaWFsdHlfbmFtZSkpICsKICBnZW9tX3BvaW50KCkgKwogIGdlb21fbGluZSgpICsKICBmYWNldF93cmFwKH5oYl9uYW1lKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikKCmBgYAoKIyMgbWFkZSBhY3V0ZV9vbmx5IGp1c3QgdG8gdHJ5IGFuZCBwbG90IG9uIG1hcCB0byBzZWUgaWYgaXQgd291bGQgd29yawoKYGBge3J9CiMgbGVhZmxldCBwbG90cyAvIHRlc3RzIGZyb20gUHVpCgphY3V0ZV9vbmx5IDwtIGJlZHNfc3BlY2lhbHR5X2RhdGEgJT4lCiAgZmlsdGVyKHNwZWNpYWx0eV9uYW1lID09ICJBbGwgQWN1dGUiLAogICAgICAgICBkYXRlID09ICIyMDE4LTAxLTAxIiwKICAgICAgICAgaGJfbmFtZSAhPSAiU0IwODAxIiwKICAgICAgICAgaGJfbmFtZSAhPSAiUzkyMDAwMDAzIikgJT4lCiAgcmVuYW1lKGhiX2NvZGUgPSBoYl9uYW1lKQoKIyByZWR1Y2UgdGhlIHNpemUgb2YgdGhlIHNoYXBlIGZpbGUgYXMgaXQncyBxdWl0ZSBiaWcgYW5kIHRha2VzIGZvcmV2ZXIgdG8gcnVuCnNpbXBsaWZpZWQgPC0gcm1hcHNoYXBlcjo6bXNfc2ltcGxpZnkoaGJfc2hhcGVzKQoKIyBhZGRzIGxvY2F0aW9ucyBhbmQgY29vcmRzIGZvciB0aGUgcG9seWdvbgpzaW1wbGlmaWVkXzIgPC0gc3RfdHJhbnNmb3JtKHNpbXBsaWZpZWQsIkNSUzo4NCIpICU+JQogIGNsZWFuX25hbWVzKCkKCiMgbWVyZ2Ugd2l0aCBkZgptZXJnZWQgPC0gc3A6Om1lcmdlKHNpbXBsaWZpZWRfMiwgYWN1dGVfb25seSkKYGBgCgoKYGBge3J9CiMgY3JlYXRpbmcgbGVhZmxldCBwbG90CiAgbGVhZmxldCgpICU+JQogICAgc2V0VmlldyhsbmcgPSAtNSwgbGF0ID0gNTcuMzUsIHpvb20gPSA2KSAlPiUKICAgICMgc2V0TWF4Qm91bmRzKGxuZzEgPSAtMC43LAogICAgIyAgICAgICAgICAgICAgbGF0MSA9IDU0LjYsCiAgICAjICAgICAgICAgICAgICBsbmcyID0gLTguOCwKICAgICMgICAgICAgICAgICAgIGxhdDIgPSA2MC45KSAlPiUKICAgIGFkZFRpbGVzKCkgJT4lCiAgICBhZGRQb2x5Z29ucyhkYXRhID0gc2ltcGxpZmllZF8yLAogICAgICAgICAgICAgICAgZmlsbENvbG9yID0gfmNvbG9yUXVhbnRpbGUoIlJlZHMiLG1lcmdlZCRwZXJjZW50YWdlX29jY3VwYW5jeSkobWVyZ2VkJHBlcmNlbnRhZ2Vfb2NjdXBhbmN5KSwKICAgICAgICAgICAgICAgIGZpbGxPcGFjaXR5ID0gMC42LAogICAgICAgICAgICAgICAgY29sb3IgPSAiZGFya2dyZXkiLCAgICAgIAogICAgICAgICAgICAgICAgd2VpZ2h0ID0gMS41KQoKCiMgY2hlY2tpbmcgZm9yIHJlZ2lvbnMKICBsZWFmbGV0KCkgJT4lCiAgICBzZXRWaWV3KGxuZyA9IC01LCBsYXQgPSA1Ny42NSwgem9vbSA9IDUuNykgJT4lCiAgICAjIHNldE1heEJvdW5kcyhsbmcxID0gLTAuNywKICAgICMgICAgICAgICAgICAgIGxhdDEgPSA1NC42LAogICAgIyAgICAgICAgICAgICAgbG5nMiA9IC04LjgsCiAgICAjICAgICAgICAgICAgICBsYXQyID0gNjAuOSkgJT4lCiAgICBhZGRUaWxlcygpICU+JQogICAgYWRkUG9seWdvbnMoZGF0YSA9IHNpbXBsaWZpZWRfMiwKICAgICAgICAgICAgICAgIGNvbG9yID0gImdyZWVuIikKCmBgYAoKYGBge3J9Cm1lcmdlZF9tYXBfYmVkc19kYXRhIDwtIHNwOjptZXJnZShzaW1wbGlmaWVkXzIsIGJlZHNfc3BlY2lhbHR5X2RhdGEpCgptZXJnZWRfbWFwX2JlZHNfZGF0YSAlPiUKICBsZWFmbGV0KCkgJT4lCiAgICBzZXRWaWV3KGxuZyA9IC01LCBsYXQgPSA1Ny42NSwgem9vbSA9IDUuNykgJT4lCiAgICAjIHNldE1heEJvdW5kcyhsbmcxID0gLTAuNywKICAgICMgICAgICAgICAgICAgIGxhdDEgPSA1NC42LAogICAgIyAgICAgICAgICAgICAgbG5nMiA9IC04LjgsCiAgICAjICAgICAgICAgICAgICBsYXQyID0gNjAuOSkgJT4lCiAgICBhZGRUaWxlcygpICU+JQogICAgYWRkUG9seWdvbnMoZGF0YSA9IHNpbXBsaWZpZWRfMiwKICAgICAgICAgICAgICAgIGNvbG9yID0gImdyZWVuIikKYGBgCgoK